home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / DSHJ2 / CMD.C < prev    next >
Encoding:
C/C++ Source or Header  |  2001-02-10  |  2.5 KB  |  122 lines
  1. #include    "comp.h"
  2.  
  3. #define     LIM        12        /* make sure EVEN !    */
  4.  
  5. extern unsigned char    *utinpt;
  6. extern unsigned        disp;
  7. extern char        advld, rldld;
  8. extern struct    slvll    *getslvbuf(), *Bslv;
  9.  
  10. funct_comm(fct,d,cpl)
  11. unsigned    fct, d;
  12. unsigned char    *cpl;
  13. {
  14.     unsigned char    sc[LIM];
  15.     unsigned    size, i;
  16.     unsigned char    c;
  17.  
  18. /*    memset(sc,0,LIM);            ** clear command buffer */
  19.     sc[0] = fct | 0x80;            /* mark 1st cmd code    */
  20.     switch (fct) {
  21.     case  9:                /* Vert. Move Forward    */
  22.         if (setp.omod == 0)        /* 8600 no odd value...    */
  23.             accval(&advld,&d);
  24.         goto next;
  25.     case 10:                /* Vert. Move Reverse    */
  26.         if (setp.omod == 0)        /* 8600 no odd value...    */
  27.             accval(&rldld,&d);
  28.         goto next;
  29.     case 11:                /* Horizontal Position    */
  30.     case 27: case 28:            /* Hor. Move Right/Left    */
  31.         size = 3;            /* size is 3 bytes    */
  32.         start(sc,setp.omod == 2 ?    /* 8200 no odd value...    */
  33.             d & 0xfffe : d,128);
  34.         break;
  35.     case  0: case  1: case  3:        /* CG original cmmds...    */
  36.     case  5: case  7: case  8:
  37.     case 15: case 16: case 17:
  38.     case 21:
  39.  
  40.     case 29: case 30: case 31:        /* GOG own cmmds...    */
  41.     case 32: case 33: case 44:
  42.     next:                    /* size is 3 bytes    */
  43.         size = 3;
  44.                         /* or different size    */
  45.     case 22:                /* if Typeface cmmd    */
  46.         start(sc,d,128);        /* set next 2 cmd codes */
  47.         break;
  48.     default:                /* others ? unknown...    */
  49.         size = 0;
  50.         break;
  51.     }
  52.     if (fct == 11)                /* Horizontal position    */
  53.         disp = d;
  54.     else
  55.     if (fct == 22) {            /* Typeface command    */
  56.         size = 9;
  57.         for (i = 3;i != 9;++i) {
  58.             c = (*cpl++ << 4);
  59.             c |= (*cpl++ & 0x0f);
  60.             sc[i] = c;
  61.         }
  62.     }
  63.     else
  64.     if (fct == 27)                /* Horizontal move Right*/
  65.         disp += d;
  66.     else
  67.     if (fct == 28) {            /* Horizontal move Left */
  68.       if (disp >= d)
  69.         disp -= d;
  70.     }
  71.     if (size) movcmds(sc,size);
  72. } 
  73.  
  74. long_char_for(c,d)
  75. unsigned char    c;
  76. unsigned    d;
  77. {
  78.     unsigned char    sc[4];
  79.     
  80.     sc[0] = c | 0x80;
  81. /*    sc[1] = sc[2] = 0;    */
  82.     start(sc,(setp.omod == 2) ? disp & 0xfffe:disp,0);
  83.     disp += d;
  84.     movcmds(sc,3);
  85. }
  86.  
  87. movcmds(sc,lim)
  88. unsigned char    *sc;
  89. unsigned    lim;
  90. {
  91.     struct    slvll    *nslv;
  92.  
  93.     if ((utinpt + lim) < (Bslv->bufptr + UTSIZE)) {
  94. doit:        f_move(sc,utinpt,lim);
  95.         utinpt += lim;
  96.     }
  97.     else {
  98.         *utinpt++ = 0x80 | SLVEOB;
  99.         *utinpt   = 0x80;
  100.         if (!(nslv = getslvbuf()))    /* get new list member    */
  101.             cpabt = 7;
  102.         else {
  103.             Bslv->fptr = nslv;    /* add member to list    */
  104.             Bslv    = nslv;
  105.             utinpt    = Bslv->bufptr;    /* reset buf pointer    */
  106.             goto doit;
  107.         }
  108.     }
  109. }
  110.  
  111. accval(fg,d)
  112. char     *fg;
  113. unsigned *d;
  114. {
  115.     if (*fg) *d = *d + 1;
  116.     if (*d % 2) {
  117.         *fg = 1;
  118.         *d &= 0xfffe;
  119.     }
  120.     else    *fg = 0;
  121. }
  122.